home *** CD-ROM | disk | FTP | other *** search
/ Shirley Barber's Fairies: Create, Paint & Play / Fairies.iso / pc / Files / ColourIn.dxr / Internal_4_Rollover Member Change.ls < prev    next >
Encoding:
Text File  |  2003-09-29  |  1.5 KB  |  49 lines
  1. property spriteNum, mySprite, mySoundPlayed, myCursor, mySound, mySoundChannel, mySpriteOff, myStandardMember, myRollovermember
  2.  
  3. on beginSprite me
  4.   mySprite = sprite(me.spriteNum)
  5.   myStandardMember = mySprite.member
  6. end
  7.  
  8. on mouseWithin me
  9.   if sound(mySoundChannel).status = 2 then
  10.     sound(mySoundChannel).play()
  11.   end if
  12. end
  13.  
  14. on mouseDown
  15.   puppetSound(mySoundChannel, 0)
  16. end
  17.  
  18. on mouseEnter me
  19.   sound(mySoundChannel).queue([#member: member(mySound)])
  20.   mySprite.member = member(myRollovermember)
  21.   cursor(myCursor)
  22.   sprite(mySpriteOff).visible = 0
  23. end
  24.  
  25. on mouseLeave me
  26.   puppetSound(mySoundChannel, 0)
  27.   mySprite.member = myStandardMember
  28.   cursor(200)
  29.   sprite(mySpriteOff).visible = 1
  30. end
  31.  
  32. on isOKToAttach me, aSpriteType, aSpriteNum
  33.   case aSpriteType of
  34.     #graphic:
  35.       return 1
  36.     #script:
  37.       return 0
  38.   end case
  39. end
  40.  
  41. on getPropertyDescriptionList
  42.   if the currentSpriteNum = 0 then
  43.     exit
  44.   end if
  45.   theMember = sprite(the currentSpriteNum).member
  46.   theMemberNumber = theMember.number
  47.   return [#myRollovermember: [#comment: "Display which member on rollover?", #format: #graphic, #default: member(theMemberNumber + 1)], #myCursor: [#comment: "Display which member on rollover?", #format: #cursor, #default: EMPTY], #mySound: [#comment: "Rollover Sound:", #format: #sound, #default: EMPTY], #mySoundChannel: [#comment: "Channel Number:", #format: #integer, #default: 1], #mySpriteOff: [#comment: "Which Member to turn off on rollover", #format: #integer, #default: 1]]
  48. end
  49.